Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/loanapp/loanf3.frm

Visual Basic Form | 1995-05-07 | 12.0 KB | 385 lines

VERSION 2.00
Begin Form Form3
   BackColor       =   &H00808080&
   ClientHeight    =   5040
   ClientLeft      =   255
   ClientTop       =   1725
   ClientWidth     =   8880
   ControlBox      =   0   'False
   Height          =   5445
   Left            =   195
   LinkMode        =   1  'Source
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5040
   ScaleWidth      =   8880
   Top             =   1380
   Width           =   9000
   Begin CommandButton Command3
      Caption         =   "Cancel"
      Height          =   300
      Left            =   4995
      TabIndex        =   19
      Top             =   4470
      Width           =   3000
   End
   Begin CommandButton Command1
      Caption         =   "OK"
      Height          =   300
      Left            =   885
      TabIndex        =   18
      Top             =   4455
      Width           =   3000
   End
   Begin PictureBox Picture7
      Height          =   1185
      Left            =   45
      ScaleHeight     =   1155
      ScaleWidth      =   8760
      TabIndex        =   20
      Top             =   3000
      Width           =   8790
      Begin CheckBox Check1
         Caption         =   "ARM:"
         Height          =   240
         Index           =   4
         Left            =   3120
         TabIndex        =   25
         Top             =   795
         Width           =   795
      End
      Begin CheckBox Check1
         Caption         =   "GPM"
         Height          =   240
         Index           =   2
         Left            =   1755
         TabIndex        =   23
         Top             =   765
         Width           =   1080
      End
      Begin PictureBox BEditF3
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   8
         Left            =   3945
         ScaleHeight     =   465
         ScaleWidth      =   4740
         TabIndex        =   27
         Top             =   615
         Width           =   4770
      End
      Begin CheckBox Check1
         Caption         =   "Other:"
         Height          =   240
         Index           =   3
         Left            =   3120
         TabIndex        =   24
         Top             =   225
         Width           =   840
      End
      Begin CheckBox Check1
         Caption         =   "Fixed Rate"
         Height          =   240
         Index           =   1
         Left            =   1755
         TabIndex        =   22
         Top             =   225
         Width           =   1275
      End
      Begin PictureBox BEditF3
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   7
         Left            =   3945
         ScaleHeight     =   465
         ScaleWidth      =   4740
         TabIndex        =   26
         Top             =   45
         Width           =   4770
      End
      Begin Label Label7
         Caption         =   "Amortizaties Type:"
         Height          =   240
         Left            =   45
         TabIndex        =   21
         Top             =   45
         Width           =   1665
      End
   End
   Begin PictureBox Picture2
      Height          =   900
      Left            =   6945
      ScaleHeight     =   870
      ScaleWidth      =   1860
      TabIndex        =   1
      Top             =   2010
      Width           =   1890
      Begin PictureBox BEditF3
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   6
         Left            =   45
         ScaleHeight     =   465
         ScaleWidth      =   1740
         TabIndex        =   17
         Top             =   330
         Width           =   1770
      End
      Begin Label Label6
         Caption         =   "Number of Months:"
         Height          =   210
         Left            =   45
         TabIndex        =   16
         Top             =   45
         Width           =   1665
      End
   End
   Begin PictureBox Picture3
      Height          =   900
      Left            =   4995
      ScaleHeight     =   870
      ScaleWidth      =   1845
      TabIndex        =   2
      Top             =   2010
      Width           =   1875
      Begin PictureBox BEditF3
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   5
         Left            =   45
         ScaleHeight     =   465
         ScaleWidth      =   1455
         TabIndex        =   15
         Top             =   330
         Width           =   1485
      End
      Begin Label Label8
         Caption         =   "%"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   240
         Left            =   1575
         TabIndex        =   28
         Top             =   540
         Width           =   255
      End
      Begin Label Label5
         Caption         =   "Interent Rate:"
         Height          =   225
         Left            =   45
         TabIndex        =   14
         Top             =   45
         Width           =   1245
      End
   End
   Begin PictureBox Picture4
      Height          =   900
      Left            =   45
      ScaleHeight     =   870
      ScaleWidth      =   3810
      TabIndex        =   3
      Top             =   2010
      Width           =   3840
      Begin PictureBox BEditF3
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   4
         Left            =   330
         ScaleHeight     =   465
         ScaleWidth      =   3285
         TabIndex        =   13
         Top             =   345
         Width           =   3315
      End
      Begin Label Label9
         Caption         =   "$"
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   12
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   300
         Left            =   150
         TabIndex        =   29
         Top             =   480
         Width           =   180
      End
      Begin Label Label4
         Caption         =   "Amount of Loan:"
         Height          =   210
         Left            =   45
         TabIndex        =   12
         Top             =   45
         Width           =   1950
      End
   End
   Begin PictureBox Picture5
      Height          =   900
      Left            =   4995
      ScaleHeight     =   870
      ScaleWidth      =   3810
      TabIndex        =   4
      Top             =   1035
      Width           =   3840
      Begin PictureBox BEditF3
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   3
         Left            =   45
         ScaleHeight     =   465
         ScaleWidth      =   3705
         TabIndex        =   11
         Top             =   330
         Width           =   3735
      End
      Begin Label Label3
         Caption         =   "Lender Case Number:"
         Height          =   225
         Left            =   30
         TabIndex        =   10
         Top             =   45
         Width           =   1920
      End
   End
   Begin PictureBox Picture6
      Height          =   900
      Left            =   45
      ScaleHeight     =   870
      ScaleWidth      =   3810
      TabIndex        =   5
      Top             =   1035
      Width           =   3840
      Begin PictureBox BEditF3
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   2
         Left            =   30
         ScaleHeight     =   465
         ScaleWidth      =   3720
         TabIndex        =   9
         Top             =   330
         Width           =   3750
      End
      Begin Label Label2
         Caption         =   "Agency Case Number:"
         Height          =   225
         Left            =   45
         TabIndex        =   8
         Top             =   45
         Width           =   1950
      End
   End
   Begin PictureBox Picture1
      Height          =   900
      Left            =   45
      ScaleHeight     =   870
      ScaleWidth      =   8760
      TabIndex        =   0
      Top             =   60
      Width           =   8790
      Begin PictureBox BEditF3
         FontBold        =   -1  'True
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   9.75
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   495
         Index           =   1
         Left            =   45
         ScaleHeight     =   465
         ScaleWidth      =   8640
         TabIndex        =   7
         Top             =   360
         Width           =   8670
      End
      Begin Label Label1
         Caption         =   "Morgtage Applied for:"
         Height          =   255
         Left            =   45
         TabIndex        =   6
         Top             =   45
         Width           =   1875
      End
   End
Sub Check1_Click (Index As Integer)
    If Form3.Visible = True Then
        If Check1(Index).Value = 1 Then
            For i = 1 To 4
                If Index <> i Then
                    Check1(i).Value = 0
                End If
            Next i
        ElseIf ((Index = 3) Or (Index = 4)) Then
            Form3.BEditF3(Index + 4).Text = ""
            MainRec.A.A7 = ""
        End If
    End If
End Sub
Sub Command1_Click ()
    MainRec.A.A1 = Form3.BEditF3(1).Text
    MainRec.A.A2 = Form3.BEditF3(2).Text
    MainRec.A.A3 = Form3.BEditF3(3).Text
    MainRec.A.A4 = Form3.BEditF3(4).Text
    MainRec.A.A5 = Form3.BEditF3(5).Text
    MainRec.A.A6 = Form3.BEditF3(6).Text
    For i = 1 To 4
        If Form3.Check1(i).Value = 1 Then
            MainRec.A.AC1 = i
        End If
    Next i
    If (MainRec.A.AC1 = 3) Or (MainRec.A.AC1 = 4) Then
        MainRec.A.A7 = Form3.BEditF3(MainRec.A.AC1 + 4).Text
    End If
    UpdateLabelA
    Form3.Hide
End Sub
Sub Command3_Click ()
    Form3.Hide
End Sub
Sub Form_Load ()
    Form3.Left = 300
    Form3.Top = (Screen.Height - Form3.Height) / 2
End Sub